home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS.ARC / +MORE SPRITES (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  511b  |  12 lines
  1. 10 IFG=0THENG=1:LOAD"64S.D",8,1
  2. 15 POKE53264,0:POKE53276,0:POKE53277,0:POKE53271,0:POKE53275,0:POKE53265,27
  3. 20 FORA=0TO14STEP2:POKE53248+A,59+A*13.5:NEXT:FORA=0TO7:POKE53287+A,1
  4. 22 POKE2040+A,13:NEXT
  5. 25 FORA=0TO7:FORB=0TO7:POKE680+A*8+B,54+B*23:NEXT:NEXT
  6. 27 FORA=832TOA+62:POKEA,255:NEXT
  7. 30 SYS49152:POKE53281,0:POKE53280,10:PRINT"[153][147][142]":POKE53269,255
  8. 40 FORA=0TO7:READC(A):NEXT:DATA2,8,10,7,13,3,14,4:CN=0:POKE198,0
  9. 50 GETA$:IFA$=" "THEN100
  10. 60 FORA=7TO0STEP-1:POKE53287+A,C(CN):CN=(CN+1)AND7:NEXT:CN=(CN+1)AND7:GOTO50
  11. 100 FORA=0TO7:POKE53287+A,1:NEXT:POKE198,0:POKE53264,1:POKE53248,19
  12.